home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / extrac / extract.frm < prev    next >
Text File  |  1995-05-08  |  17KB  |  305 lines
  1. VERSION 2.00
  2. Begin Form Extract 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "EXTRACTION D'ICONES"
  5.    ClientHeight    =   1995
  6.    ClientLeft      =   4140
  7.    ClientTop       =   3990
  8.    ClientWidth     =   4890
  9.    Height          =   2400
  10.    Icon            =   EXTRACT.FRX:0000
  11.    Left            =   4080
  12.    LinkTopic       =   "EXTRACTION D'ICONES"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1995
  16.    ScaleWidth      =   4890
  17.    Top             =   3645
  18.    Width           =   5010
  19.    Begin FileListBox File1 
  20.       Height          =   1980
  21.       Left            =   90
  22.       TabIndex        =   10
  23.       Top             =   2340
  24.       Width           =   2055
  25.    End
  26.    Begin DirListBox Dir1 
  27.       Height          =   1605
  28.       Left            =   2280
  29.       TabIndex        =   9
  30.       Top             =   2730
  31.       Width           =   2475
  32.    End
  33.    Begin DriveListBox Drive1 
  34.       Height          =   315
  35.       Left            =   2280
  36.       TabIndex        =   8
  37.       Top             =   2340
  38.       Width           =   2475
  39.    End
  40.    Begin CommandButton Command3 
  41.       Caption         =   "&Liste Fichier"
  42.       Height          =   345
  43.       Left            =   3030
  44.       TabIndex        =   7
  45.       Top             =   870
  46.       Width           =   1695
  47.    End
  48.    Begin HScrollBar Barre 
  49.       Height          =   285
  50.       Left            =   2130
  51.       TabIndex        =   6
  52.       Top             =   1290
  53.       Visible         =   0   'False
  54.       Width           =   2655
  55.    End
  56.    Begin PictureBox Picture2 
  57.       Height          =   885
  58.       Left            =   960
  59.       ScaleHeight     =   855
  60.       ScaleWidth      =   885
  61.       TabIndex        =   4
  62.       Top             =   210
  63.       Width           =   915
  64.       Begin PictureBox Picture1 
  65.          BackColor       =   &H00FFFFFF&
  66.          BorderStyle     =   0  'None
  67.          Height          =   480
  68.          Left            =   210
  69.          ScaleHeight     =   480
  70.          ScaleWidth      =   480
  71.          TabIndex        =   5
  72.          Top             =   180
  73.          Width           =   480
  74.       End
  75.    End
  76.    Begin CommandButton Command2 
  77.       Caption         =   "&Quitter"
  78.       Height          =   345
  79.       Left            =   3060
  80.       TabIndex        =   3
  81.       Top             =   90
  82.       Width           =   1695
  83.    End
  84.    Begin CommandButton Command1 
  85.       Caption         =   "&Icone"
  86.       Height          =   345
  87.       Left            =   3060
  88.       TabIndex        =   2
  89.       Top             =   480
  90.       Width           =   1695
  91.    End
  92.    Begin TextBox Text1 
  93.       Height          =   315
  94.       Left            =   90
  95.       TabIndex        =   0
  96.       Top             =   1650
  97.       Width           =   4725
  98.    End
  99.    Begin Label Label2 
  100.       BackColor       =   &H00C0C0C0&
  101.       Height          =   225
  102.       Left            =   120
  103.       TabIndex        =   11
  104.       Top             =   2070
  105.       Width           =   4605
  106.    End
  107.    Begin Label Label1 
  108.       BackColor       =   &H00C0C0C0&
  109.       Caption         =   "Nom du fichier:"
  110.       Height          =   195
  111.       Left            =   90
  112.       TabIndex        =   1
  113.       Top             =   1440
  114.       Width           =   2445
  115.    End
  116. End
  117. '                                                                                                                                                                                                                                                                           '
  118. '                                                                                                                                                                                                                                                                            '
  119. 'Permet l'extraction des Ic⌠nes                                                                                                                                                                                                                                               '
  120. '                                                                                                                                                                                                                                                                              '
  121. '                                                                                                                                                                                                                                                                               '
  122.     Option Explicit
  123.     Dim hInst As Integer
  124.     Dim hIcon As Integer
  125. '                                                                                                                                                                                                                                                                                                                               '
  126. 'Program made by                                                                                                                                                                                                                                                                                                                                '
  127. 'Christophe Tricaud, Paris, France    N░100412,2653                                                                                                                                                                                                                                                                               '
  128. 'If you find it usefull just tell it to me                                                                                                                                                                                                                                                                                         '
  129. 'If you have good tips, just send them to me....                                                                                                                                                                                                                                                                                    '
  130. '                                                                                                                                                                                                                                                                                                                                    '
  131. '                                                                                                                                                                                                                                                                                                                                     '
  132.  
  133. Sub Barre_Change ()
  134.     Dim Res As Integer
  135. '                                                                                                                                                                                                                       '
  136. '                                                                                                                                                                                                                        '
  137. 'On a fait dΘfiler la barre                                                                                                                                                                                               '
  138. '                                                                                                                                                                                                                          '
  139. '